home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / HARDWARE / EZBLDEMO.EXE / EZBLDEMO.dxr / 00025.ls < prev    next >
Encoding:
Text File  |  1996-07-23  |  443 b   |  17 lines
  1. on mouseDown
  2.   global gTheClickon
  3.   puppetTransition(0)
  4.   set gTheClickon to the clickOn
  5.   set upSprite to the castNum of sprite gTheClickon
  6.   repeat while the mouseDown
  7.     if rollOver(gTheClickon) then
  8.       set the castNum of sprite gTheClickon to upSprite + 1
  9.     else
  10.       set the castNum of sprite gTheClickon to upSprite
  11.     end if
  12.     updateStage()
  13.   end repeat
  14.   set the castNum of sprite gTheClickon to upSprite
  15.   updateStage()
  16. end
  17.